unit BllLogin;

interface

uses
  DalLogin, DatLogin;

type
  TBllLogin = class(TDalLogin)
  private

  protected

  public
    function logar(value: TdatLogin): Boolean;
  end;

var
  DalModel: TdalLogin;

implementation

{ TBllLogin }

function TBllLogin.logar(value: TdatLogin): Boolean;
begin
  Result := DalModel.logar(value);
end;

end.
